Cine Live 69/Cine Live 69.iso/pc/Data/Interface/vid2.k

Text File | 2003-05-07 | 6.6 KB | 280 lines

module oRoot1 is cBox
with
    Flags is $00000152;
    release Editor:
        IOWindow is {$00000142,$000000CE,$000002B8,$000002AE,$00000000,$FFFFFF9D,$00000000,$00000000};
        LayoutWindow is {$00000383,$000001ED,$00000293,$00000248,$00000000,$00000000,$00000064,$00000000};
    end;
    Name is "Root";
    Enabled is false;

    Width is 800; Height is 600;


    Elements is [
        oMusic2,
        ofond3,
        obouton_sommaire4,
        obouton_retour5,
        obouton_lancer6,
        oBox8,
        oVid_o7
    ];
    Events is [
        cOnscreenEvent
        with
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is oMusic2; Rewind is true; end
            ];
        end,
        cKeyboardEvent
        with Test is IsSpace;
            Commands is [
                cRunCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Toggle; end
            ];
        end,
        cKeyboardEvent
        with Value is "+";
            Commands is [
                cSetVolumeCommand
                with Mode is ExecuteHigher; end
            ];
        end,
        cKeyboardEvent
        with Value is "-";
            Commands is [
                cSetVolumeCommand
                with Flags is $00000004; Mode is ExecuteLower; end
            ];
        end,
        cKeyboardEvent
        with Value is "m";
            Commands is [
                cRunCommand
                with Flags is $00000004; Mode is Toggle; Rewind is true; end
            ];
        end
    ];
end;

object oMusic2 is cSound
with
    Flags is $00000150;
    Name is "Music";

    AdjustX is AlignToCenter; AdjustY is AlignToMiddle;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;
    Looping is true;
    URL is "data/Sons/3.mp3"; URLOption is GetDiskURL;

end;

object ofond3 is cImage
with
    Flags is $00000150;
    Name is "fond";
    Enabled is false;
    AdjustX is AlignToCenter; AdjustY is AlignToMiddle;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "data/Images/v2.jpg"; URLOption is GetDiskURL;


end;

object obouton_sommaire4 is cImage
with
    Flags is $00000150;
    Name is "bouton sommaire";
    Shown is false; Cursor is oFingerCursor;
    X is 629; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "data/Images/vid%20sommaire.jpg"; URLOption is GetDiskURL;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cBrowseCommand
                with Flags is $00000004; URL is "../../Data/Interface/sommaire.k"; end
            ];
        end
    ];
end;

object obouton_retour5 is cImage
with
    Flags is $00000150;
    Name is "bouton retour";
    Shown is false; Cursor is oFingerCursor;
    X is 321; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "data/Images/vid%20retour.jpg"; URLOption is GetDiskURL;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cBrowseCommand
                with URL is "videos.k"; end
            ];
        end
    ];
end;

object obouton_lancer6 is cImage
with
    Flags is $00000150;
    Name is "bouton lancer";
    Shown is false; Cursor is oFingerCursor;
    X is 475; Y is 573;
    AdjustWidth is GetDataWidth; AdjustHeight is GetDataHeight;

    URL is "data/Images/vid%20video.jpg"; URLOption is GetDiskURL;


    Events is [
        cMouseEnterEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oTargetSelf; end
            ];
        end,
        cMouseLeaveEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oVid_o7; end,
                cEnableCommand
                with Flags is $00000004; Target is oVid_o7; end,
                cShowCommand
                with Flags is $00000004; Target is oBox8; end,
                cEnableCommand
                with Flags is $00000004; Target is oBox8; end,
                cRunCommand
                with Flags is $00000004; Target is oVid_o7; Rewind is true; end,
                cRunCommand
                with Flags is $00000004; Target is oMusic2; Mode is Clear; Rewind is true; end
            ];
        end
    ];
end;

object oBox8 is cBox
with
    Flags is $00000254;
    Name is "Box";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;

    Kind is DrawOpaque;
    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oBox8; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oBox8; Mode is Clear; end,
                cShowCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Clear; end,
                cRunCommand
                with Flags is $00000005; Target is oVid_o7; Mode is Clear; Rewind is true; end,
                cRunCommand
                with Flags is $00000005; Target is oMusic2; Rewind is true; end
            ];
        end
    ];
end;

object oVid_o7 is cMPEGMovie
with
    Flags is $00000154;
    Name is "Vid\$E9o";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;
    Y is 76;
    Width is 800; Height is 450;

    URL is "data/Videos/v2.mpg"; URLOption is GetDiskURL;
    Events is [
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oBox8; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oBox8; Mode is Clear; end,
                cShowCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Clear; end,
                cRunCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Clear; Rewind is true; end,
                cRunCommand
                with Flags is $00000004; Target is oMusic2; Rewind is true; end
            ];
        end,
        cFinishedEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oBox8; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oBox8; Mode is Clear; end,
                cShowCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Clear; end,
                cRunCommand
                with Flags is $00000004; Target is oVid_o7; Mode is Clear; Rewind is true; end,
                cRunCommand
                with Flags is $00000004; Target is oMusic2; Rewind is true; end
            ];
        end
    ];
end;